5 REM LABEL MAKER 1.2 PROGRAM (C)1985 BY MIKE KONSHAK
10 OPEN4,4,7:PRINTCHR$(14)
15 POKE53281,0:POKE53280,0:PRINT"[147][158]"
20 RW=6:PR=5:NC=34:CR$=CHR$(13):B$=CHR$(32):FORI=1TO80:S$=S$+B$:NEXTI
25 DIM PR$(66)
30 PRINT"[147]  [204]ABEL [205]AKER (C)1985 BY [205]IKE [203]ONSHAK [146]"
35 PRINT" [212]HIS PROGRAM WILL PRINT LABELS OUT ON"
40 PRINT" YOUR PRINTER. [193]FTER DEFINING THE LABEL"
45 PRINT" YOU WILL BE ABLE TO RUN AS MANY COPIES"
50 PRINT" OF THE LABEL AS YOU DESIRE."
55 PRINT" [208]OSSIBLE [213]SES:"
60 PRINTTAB(5)"[210]ETURN [193]DDRESS [204]ABELS"
65 PRINTTAB(5)"[198]LOPPY [196]ISK [204]ABELS"
70 PRINTTAB(5)"[201]NVENTORY [201][196] [204]ABELS"
75 PRINTTAB(5)"[211]WEEPSTAKES [197]NTRIES"
80 PRINTTAB(5)"[200]I, [201]'M...  [206]AME [212]AGS"
85 PRINT" [197]NHANCED PRINT, [195]ENTERING AND [211]ERIAL"
90 PRINT" [206]UMBERS MAY BE FORMATTED FOR AN"
95 PRINT" INDIVIDUAL LINE. [208]RESS [193]NY [203]EY[146]":GOSUB105:GOTO375
105 GETA$:IFA$=""THEN105
110 RETURN
120 PRINT"[147]        [196]ESIGN [217]OUR [207]WN [204]ABELS        [146]"
125 PRINT" [208]OSSIBLE #[210][207][215][211] PER [204]ABEL + 1?";RW
130 PRINT"[145]"TAB(29);:INPUTRW
135 PRINT" #[210][207][215][211] TO BE [208]RINTED ON [204]ABEL?";PR
140 PRINT"[145]"TAB(29);:INPUTPR
145 PRINT" [208]OSSIBLE #[195][200][193][210][193][195][212][197][210][211] PER [210]OW?";NC
150 PRINT"[145]"TAB(29);:INPUTNC
155 PRINT" [197]NTER [196][193][212][193] FOR [197]ACH [210]OW AS [208]ROMPTED   "
160 PRINT" [211]ET [211]PECIAL [205]ODES BY [205]AKING THE [198]IRST "
165 PRINT" [195]HARACTER ONE OF THE FOLLOWING:       "
170 PRINT"      ^ [146] [197]NHANCED, [196]OUBLE [215]IDE     "
175 PRINT"      _ [146] [195]ENTERED IN ROW"
180 PRINT" [201]F THE LABELS ARE TO BE [211][197][210][201][193][204][201][218][197][196],"
185 PRINT" ENTER THE '[208]OUND [211]IGN' AS THE [204][193][211][212]"
190 PRINT" CHARACTER IN THE ROW. [212]HE NUMBER WILL"
195 PRINT" BE PRINTED AT THE END OF THE ROW."
200 PRINT"      # [146] [211]ERIALIZED [204]ABELS"
205 PRINT" [206][207][212][197]: [207]NLY [207][206][197] [205]ODE [193]LLOWED PER [204]INE!!"
210 PRINT:FORI=1TOPR
215 PRINTI;TAB(5)PR$(I):IFLEN(PR$(I))>34THENPRINT"[145][145]"TAB(3);:GOTO218
217 PRINT"[145]"TAB(3);
218 INPUTPR$(I)
220 NEXTI:FL=1:CK=1
225 PRINT" [210][146]EVISE [204]ABEL [211][146]AVE [208][146]RINT [197][146]XIT"
230 GOSUB105:IFA$="R"ORA$="[210]"THEN120
235 IFA$="P"ORA$="[208]"THEN260
240 IFA$="S"ORA$="[211]"THENGOSUB455:GOTO260
245 IFA$="E"ORA$="[197]"THEN375
250 GOTO230
260 PRINT"[147]            [208]RINT [204]ABELS             [146]"
265 NM=0:FORI=1TOPR:
270 PRINT" [204]ABEL:[146] "NF$:PRINT"":FORI=1TOPR
275 IFLEFT$(PR$(I),1)="^"THENPRINT""MID$(PR$(I),2,INT(NC/2)):GOTO295
280 IFLEFT$(PR$(I),1)="_"THEN300
285 IFRIGHT$(PR$(I),1)="#"THENPRINTPR$(I)"9999":NM=1:GOTO295
290 PRINTLEFT$(PR$(I),NC)
295 NEXTI:GOTO305
300 PRINTLEFT$(S$,(NC-LEN(PR$(I)))/2)MID$(PR$(I),2,NC):GOTO295
305 PRINT" [200]OW [205]ANY [204]ABELS [0 TO [197][216][201][212]]";:INPUTN:IFN=0THEN375
310 IFNM=1THENPRINT" [211]TARTING [193]T [204]ABEL [206]UMBER ? 1[157][157][157]";:INPUTNM:IFNM=0THEN375
320 PRINT:FORI=1TON:PRINT" [208][210][201][206][212][201][206][199]"I"[145]":FORJ=1TOPR
325 IFLEFT$(PR$(J),1)="^"THEN350
330 IFLEFT$(PR$(J),1)="_"THEN365
335 IFRIGHT$(PR$(J),1)="#"THENPRINT#4,PR$(J)STR$(I+NM-1):GOTO355
340 PRINT#4,LEFT$(PR$(J),NC):GOTO355
350 PRINT#4,CHR$(14)MID$(PR$(J),2,INT(NC/2))CHR$(15)
355 NEXTJ:FORK=1TORW-PR:PRINT#4," ":NEXTK
360 NEXTI:GOTO375
365 PRINT#4,LEFT$(S$,(NC-LEN(PR$(J)))/2)MID$(PR$(J),2,NC):GOTO355
375 PRINT"[147]              [207]PTION [205]ENU             [146]"
380 PRINT"        [196][146]ESIGN [204]ABEL"
385 PRINT"        [204][146]OAD [204]ABEL [198]ROM [196]ISK"
390 IFFL<>0THEN PRINT"        [211][146]AVE [204]ABEL TO [196]ISK"
395 IFFL<>0THEN PRINT"        [208][146]RINT [204]ABELS"
400 PRINT"        $[146] [196]IRECTORY"
405 PRINT"        [209][146]UIT [208]ROGRAM"
410 PRINT"       [208]RESS THE [193]PPROPRIATE [203]EY     "
415 GOSUB105:IFA$="Q"ORA$="[209]"THENGOSUB575:CLOSE4:PRINT"[147]":END
420 IFA$="P"ORA$="[208]"THEN260
425 IFA$="L"ORA$="[204]"THENGOSUB575:GOSUB500:GOTO375
430 IFA$="D"ORA$="[196]"THEN120
435 IFA$="S"ORA$="[211]"THENGOSUB455:GOTO375
440 IFA$="$"THENGOTO605
445 GOTO415
455 PRINT" [211]AVE [204]ABEL [213]NDER [198]ILE? "NF$
460 PRINT"[145]"TAB(22);:INPUTNF$:IFNF$=""THEN375
465 IFLEN(NF$)>12THENPRINT"12 [195]HRS [205]AX":PRINT"[145][145][145]":GOTO455
470 OPEN15,8,15:PRINT#15,"S0:LM] "+NF$:GOSUB550:IFET=8THEN375
475 OPEN5,8,5,"0:LM] "+NF$+",S,W":GOSUB550:IFET=8THEN375
480 PRINT#5,RW;CR$;PR;CR$;NC:GOSUB550:IFET=8THEN375
482 FORI=1TOPR:PR$=PR$(I):IFPR$=""THENPR$=">"
485 PRINT#5,PR$:NEXTI:GOSUB550:IFET=8THEN550
490 GOSUB565:CK=0:RETURN
500 PRINT" [204]OAD [204]ABEL [198]ROM [198]ILE? "NF$
505 PRINT"[145]"TAB(21);:INPUTNF$:IFNF$=""THEN375
510 IFLEN(NF$)>12THENPRINT"12 [195]HRS [205]AX":PRINT"[145][145][145]":GOTO500
515 OPEN15,8,15:OPEN5,8,5,"0:LM] "+NF$+",S,R":GOSUB550:IFET=8THEN375
520 IFEN=62THENGOSUB555:GOTO375
525 INPUT#5,RW,PR,NC:GOSUB550:IFET=8THEN550
530 FORI=1TOPR:INPUT#5,PR$(I):IFPR$(I)=">"THENPR$(I)=""
532 NEXTI:GOSUB550:IFET=8THEN550
535 S=ST:IFS<>0THEN540
540 GOSUB565:FL=1:RETURN
550 INPUT#15,EN,EM$,ET,ES:IFEN<20OREN=62THENET=0:RETURN
555 PRINT" [196]ISK [197][210][210][207][210][146]"EN"[157], "EM$","ET"[157],"ES:ET=8
560 PRINT" [208]RESS [193]NY [203]EY[146] TO [195]ONTINUE":GOSUB105
565 CLOSE5:CLOSE15:RETURN
575 IFCK=0THENRETURN
580 PRINT" [217]OU [200]AVE [206][207][212] [211]AVED [217]OUR [195]HANGES!"
585 PRINT" [208]RESS [211][146]AVE [204]ABEL [195][146]ONTINUE"
590 GOSUB105:IFA$="C"ORA$="[195]"THENRETURN
595 IFA$="S"ORA$="[211]"THENGOSUB455:RETURN
605 OPEN15,8,15:OPEN5,8,0,"$0":PRINT"[147]":GOSUB550:IFET=8THEN375
610 GET#5,A1$,A2$
615 GET#5,A1$,A2$
620 GET#5,A1$,A2$
625 IFA1$<>""THENA0=ASC(A1$)
630 IFA2$<>""THENA0=A0+ASC(A2$)*256
635 PRINTMID$(STR$(A0),2);TAB(3);
640 GET#5,A2$:IFST<>0THEN685
645 IFA2$<>CHR$(34)THEN640
650 GET#5,A2$:IFA2$<>CHR$(34)THENPRINT""A2$"[146]";:GOTO650
655 GET#5,A2$:IFA2$=CHR$(32)THEN655
660 PRINTTAB(20);:A3$=""
665 A3$=A3$+A2$:GET#5,A2$:IFA2$<>""THEN665
670 PRINTLEFT$(A3$,3)
675 GETA$:IFA$<>""THENGOSUB695
680 IFST=0THEN615
685 PRINT" BLOCKS FREE";:A0=0
690 CLOSE5:CLOSE15:PRINTTAB(25)"[208]RESS [193][206][217] [203][197][217][146]":GOSUB105:GOTO375
695 GOSUB105:RETURN